Remix Doll 3: Dirty Sally/Remix Doll 3: Dirty Sally.iso/drtyslly.exe/MAIN_FNL.DXR/00049_main.ls

Text File | 1995-02-11 | 1.9 KB | 148 lines

global gApp, gNavigator, gTapes, gTV

on startMovie
  busyCurs()
  initSys()
  makeTapes()
  makeTV()
  hideTV()
  set the preLoadEventAbort to 1
  set the volume of sound 1 to 256
  set the volume of sound 2 to 256
  resetCurs()
  goOpening()
end

on stopMovie
  disposNavigator()
end

on goOpening
  busyCurs()
  preLoad(label("opening"), label("openingEnd"))
  go(label("opening"))
  resetCurs()
end

on goOffice
  busyCurs()
  stpSnd(1)
  stpSnd(2)
  go(label("office"))
  unLoad()
  preLoad(label("office"), label("officeEnd"))
  set the mouseUpScript to "goMap"
  resetCurs()
end

on goMap
  busyCurs()
  stpSnd(1)
  stpSnd(2)
  go(label("map"))
  unLoad()
  preLoad(label("map"), label("mapEnd"))
  set the mouseUpScript to "goChooseRoom"
  resetCurs()
end

on goChooseRoom
  busyCurs()
  go(label("chooseRoom"))
  unLoad()
  makeNavigator()
  set the mouseUpScript to EMPTY
  set the preLoadEventAbort to 0
  resetCurs()
end

on makeNavigator
  set gNavigator to NewObj("TNavLayer")
end

on disposNavigator
  mDeath(gNavigator)
  set gNavigator to 0
end

on showNavigator
  mShowLayer(gNavigator)
end

on hideNavigator
  mHideLayer(gNavigator)
end

on doQuit
  mNewMainLayer(gApp, "TLayer", "quitDlg")
  hideNavigator()
  hideTapes()
end

on makeTapes
  set gTapes to NewObj("TTapeLayer")
end

on disposTapes
  mDeath(gTapes)
  set gTapes to 0
end

on showTapes
  mShowLayer(gTapes)
end

on hideTapes
  mHideLayer(gTapes)
end

on makeTV
  set gTV to NewObj("TTVLayer")
end

on disposTV
  mDeath(gTV)
end

on showTV
  mShowLayer(gTV)
end

on hideTV
  mEjectTape(gTV)
  mHideLayer(gTV)
end

on playTV
  mPlay(gTV)
end

on revTV
  mRev(gTV)
end

on fwdTV
  mFwd(gTV)
end

on pauseTV
  mPause(gTV)
end

on stopTV
  mStop(gTV)
end

on plyClickSnd
end

on idle
  mIdle(gApp)
end

on setPurge vBgn, vEnd, vPri
  repeat with aPurgeCount = vBgn to vEnd
    set the purgePriority of cast aPurgeCount to vPri
  end repeat
end